Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/DEBUG/OBJTEST/MAIN.DFM/MAIN.txt

Text File | 1996-06-06 | 4KB | 191 lines

object frmMain: TfrmMain
  Left = 260
  Top = 111
  Width = 507
  Height = 344
  Caption = 'frmMain'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Label2: TLabel
    Left = 6
    Top = 78
    Width = 59
    Height = 16
    Caption = 'Numbers'
  end
  object labMean: TLabel
    Left = 240
    Top = 138
    Width = 52
    Height = 16
    Caption = 'Mean = '
  end
  object Label6: TLabel
    Left = 6
    Top = 48
    Width = 70
    Height = 16
    Caption = 'String Text'
  end
  object labString: TLabel
    Left = 238
    Top = 48
    Width = 4
    Height = 16
  end
  object Label1: TLabel
    Left = 390
    Top = 48
    Width = 4
    Height = 16
  end
  object Label3: TLabel
    Left = 0
    Top = 174
    Width = 478
    Height = 16
    Caption =
      'INSTRUCTIONS    (Also see the Comments Unit for additional infor' +
      'mation).'
  end
  object Shape1: TShape
    Left = 0
    Top = 168
    Width = 499
    Height = 5
    Brush.Color = clBlue
  end
  object Memo1: TMemo
    Left = 108
    Top = 72
    Width = 97
    Height = 61
    TabOrder = 1
    OnEnter = Memo1Enter
  end
  object butAddObject: TButton
    Left = 6
    Top = 6
    Width = 199
    Height = 27
    Caption = 'Add New Object to StringList'
    TabOrder = 2
    OnClick = butAddObjectClick
  end
  object butDeleteObject: TButton
    Left = 384
    Top = 6
    Width = 103
    Height = 27
    Caption = 'Delete Object'
    TabOrder = 3
    TabStop = False
    OnClick = butDeleteObjectClick
  end
  object edtString: TEdit
    Left = 108
    Top = 42
    Width = 97
    Height = 24
    TabOrder = 0
  end
  object Button4: TButton
    Left = 42
    Top = 138
    Width = 61
    Height = 21
    Caption = 'Calc'
    TabOrder = 4
    TabStop = False
    OnClick = Button4Click
  end
  object panHoldMemoObject: TPanel
    Left = 240
    Top = 72
    Width = 97
    Height = 61
    BevelOuter = bvLowered
    TabOrder = 5
  end
  object lstObjectString: TListBox
    Left = 390
    Top = 72
    Width = 97
    Height = 61
    TabStop = False
    ItemHeight = 16
    TabOrder = 6
    OnClick = lstObjectStringClick
  end
  object chkAutoCalc: TCheckBox
    Left = 238
    Top = 18
    Width = 129
    Height = 17
    TabStop = False
    Caption = 'Auto Calculate'
    State = cbChecked
    TabOrder = 7
  end
  object edtControl: TEdit
    Left = 108
    Top = 138
    Width = 97
    Height = 24
    TabStop = False
    TabOrder = 8
  end
  object Memo2: TMemo
    Left = 0
    Top = 192
    Width = 499
    Height = 121
    TabStop = False
    Lines.Strings = (
      '1) Enter text into the editbox labeled "String Text."'
      ''

        '2) Enter one or more numbers into the memo labeled "Numbers," me' +
        'mo1.'
      ''

        '3) Click "Add New Object to StringList." The contents of the mem' +
        'o are '

        'copied to the middle memo and the mean of the numbers is display' +
        'ed '
      'below.'
      ''

        '4) Repeat the above several times using different text and numbe' +
        'rs.'
      ''

        '5) Select an item from the listbox on the right. The memo associ' +
        'ated with '

        'that object is displayed in the middle memo, along with its mean' +
        ' below.'
      ''

        '6) Click "Delete Object." The object associated with the selecte' +
        'd item in '
      'the listbox on the right is deleted.'
      ''

        '7) Click "Calc." The mean of the numbers in the left memo are ca' +
        'lculated '
      'and displayed.')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 9
  end
end